home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / zbpc_460.zip / DUALDEMO.EXE / SHOWDUAL.BAS < prev   
BASIC Source File  |  1991-03-20  |  2KB  |  62 lines
  1. ' SHOWTYME
  2. ' by James Ducasse
  3. ' (modified for speed by Andrew Gariepy)
  4. :
  5. ' This is an excellent example of using the high-speed
  6. ' USR 8 and USR 9 Integer SINE and COSINE functions
  7. ' built into all versions of the ZBasic compiler
  8. :
  9. IF CARDTYPE < 16 PRINT "Must have two monitors to do this" : DELAY 5000 : END
  10. CLS : RANDOMIZE : Colormax = 16 : MODE 22
  11. :
  12. CR% = 7
  13. V1 = 4
  14. :
  15. DO
  16.   LONG IF Colormax = 1
  17.     C1 = 1 : C2 = 1 : C3 = 1
  18.   XELSE
  19.     C1 = RND(Colormax-1) : C2 = RND(Colormax-1) : C3 = RND(Colormax-1)
  20.   END IF
  21.   LONG IF CARDTYPE > 31
  22.           MODE 20
  23.     X1 = RND(1024) : X2 = RND(768) : X3 = RND(768) : CIRCLE X1,X2,X3
  24.         XELSE
  25.           MODE 2 : PRINT @(0,0) "Color =" C1,C2,C3
  26.   END IF
  27.   MODE 19 : COLOR C1,C2,C3
  28.   FOR R = 0 TO 256
  29.     A% = USR 9 (Q * R) / 4
  30.     X1 = (USR 9 (R) * A%) / 50 + 512
  31.     Y1 = (USR 8 (R) * A%) / 50 + 384
  32.     B = R + E
  33.     B2% = USR 9 (V1 * B) / 4
  34.     X2 = (USR 9 (B) * B2%) / 50 + 512
  35.     Y2 = (USR 8 (B) * B2%) / 50 + 384
  36.     PLOT X1, Y1 TO X2, Y2
  37.     I$ = INKEY$
  38.     IF LEN(I$) THEN "END"
  39.   NEXT R
  40.   Q = RND(12)
  41.   IF Q = 7 THEN Q = 0
  42.   IF Q = 1 AND V1 = 0 THEN V1 = RND(12)
  43.   E = RND(200)
  44.   V1 = RND(12)
  45.   IF V1 = 7 THEN V1 = 0
  46.   IF V1 > 6 THEN V1 = V1 - 12
  47.   IF Q < 1 AND V1 = 1 THEN V1 = RND(50)
  48.   IF Q = 1 AND V1 = 1 THEN V1 = RND(100)
  49.   CR% = RND(17)
  50.   IF CR% = 2 THEN CR% = 4
  51.   IF CR% = 3 THEN CR% = 6
  52.   IF CR% > 6 AND C4% < 10 THEN CR% = CR% + 4
  53.   CR1% = CR% + 1
  54.   DELAY 2000
  55.   CLS
  56. UNTIL LOOP ' LOOP = 0 so this is a never-ending loop
  57. :
  58. "END"
  59. MODE 2
  60. CLS
  61. END
  62.